home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
language
/
parallax
/
mac_sit.hqx
/
Parallaxis 2.11
/
prim.p
< prev
next >
Wrap
Text File
|
1991-08-23
|
419b
|
21 lines
SYSTEM sieve;
CONFIGURATION list [200];
CONNECTION (* none *);
SCALAR prime : INTEGER;
VECTOR candidate: BOOLEAN;
BEGIN
PARALLEL
candidate := id_no >= 2;
WHILE candidate DO
prime:= REDUCE.FIRST(id_no);
WriteInt(prime,10); WriteLn;
IF id_no MOD prime = 0 (* remove multiples *)
THEN candidate := FALSE
END
END
ENDPARALLEL
END sieve.